home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / De la revista / Ghostscript / files / gs_mac.ps < prev    next >
Encoding:
Text File  |  1994-05-03  |  4.1 KB  |  175 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18.  
  19. % executive is redefined so that .setinterpstate gets called.  This in
  20. % lets Mac GS Viewer know what state the interpreter is in so it can
  21. % display the correct menus and various dialogs and cursors.
  22.  
  23. /.interpstateinput 1 def
  24. /.interpstaterun 2 def
  25. /.interpstatepause 3 def
  26.  
  27. /executive
  28.     { { prompt
  29.         .interpstateinput .setinterpstate
  30.          { (%statementedit) (r) file } stopped
  31.          { pop pop $error /errorname get /undefinedfilename eq
  32.         { exit } if        % EOF
  33.            handleerror null        % ioerror??
  34.          }
  35.         if
  36.         .interpstaterun .setinterpstate
  37.         cvx execute
  38.       } loop
  39.     } odef
  40.  
  41. /.confirm
  42.     { pop } bind def
  43.  
  44.  
  45. % .newwindow creates a new output device for the Mac
  46.  
  47. /.newwindow    % hwres pagesize depth title visible -> -
  48.     {
  49.         mark 6 1 roll
  50.         /HWResolution 6 1 roll
  51.         /PageSize 5 1 roll
  52.         /BitsPerPixel 4 1 roll
  53.         /GSTitle 3 1 roll
  54.         /GSVisible exch
  55.         currentdevice copydevice
  56.         putdeviceprops
  57.         setdevice
  58.     } def
  59.  
  60. % .newfile creates a output file for an arbitrary device
  61.  
  62. /.newfile    % hwres pagesize outputfile -> -
  63.     {
  64.         mark 4 1 roll
  65.         /HWResolution 4 1 roll
  66.         /PageSize 3 1 roll
  67.         /OutputFile exch
  68.         currentdevice
  69.         putdeviceprops
  70.         pop
  71.     } def
  72.  
  73. % .closefile closes a file by setting the output file to be a dash
  74.  
  75. /.closefile    % --
  76.     { mark /OutputFile (-) currentdevice putdeviceprops pop } def
  77.  
  78. % .beginjob and .endjob are used to 'wrap' rendering of files
  79. % so that one file can't corrupt the VM state for another.
  80. % Both procedures assume one value on the stack which they
  81. % preserve.
  82.  
  83. % This pair does the full save and restore of the VM environment
  84. % What was on the operand and dictionary stacks before the .beginjob
  85. % will be restored after the .endjob.
  86.  
  87. /.beginjob            % |- old...stack proc -> proc
  88.     { save
  89.         5 dict dup
  90.         serverdict /.jobinfo 3 2 roll put
  91.         begin
  92.             /saveid exch def
  93.             /proc exch def
  94.               count array astore /ostack exch def
  95.               /proc load
  96.           end
  97.           serverdict /.jobinfo get
  98.           /dstack countdictstack array dictstack put
  99.     } def
  100.  
  101. /.endjob            % |- junk...stack result -> old...stack result
  102.     {
  103.         serverdict /.jobinfo known {
  104.             cleardictstack
  105.     
  106.             serverdict /.jobinfo get begin
  107.                 /result exch def
  108.                 clear ostack aload pop
  109.                 result
  110.                 saveid
  111.                 dstack
  112.             end
  113.             dup length 1 sub countdictstack exch 1 exch
  114.             { 1 index exch get begin } for
  115.             pop
  116.         restore
  117.         } if
  118.     } def
  119.  
  120. % This pair just does a save and restore.  It cleans out
  121. % the operand and dictionay stack both before and after.
  122.  
  123. % /.beginjob        % |- ... proc -> proc
  124. %     {
  125. %         count 1 roll
  126. %         count 1 sub { pop } repeat
  127. %         cleardictstack
  128. %         save
  129. %         serverdict /.jobinfo 3 2 roll put
  130. %     } def
  131. %     
  132. % /.endjob        % |- ... result -> result
  133. %     {
  134. %         count 1 roll
  135. %         count 1 sub { pop } repeat
  136. %         cleardictstack
  137. %         serverdict /.jobinfo get
  138. %         restore
  139. %     } def
  140.  
  141.  
  142. % This pair does no job saving what so ever.
  143.  
  144. % /.beginjob { } def
  145. % /.endjob { } def
  146.  
  147.  
  148. % .runjob is called from the application when you open a file
  149.  
  150. /.runjob        % proc -> -
  151.     {
  152.         .beginjob
  153.             stopped
  154.         .endjob
  155.         { stop } if
  156.     } def
  157.  
  158.  
  159. % our way of handling user interrupts
  160.  
  161. errordict begin
  162.   /interrupt {
  163.                       % do the normal errorhandler, but ignore its stop
  164.       /interrupt dup
  165.       systemdict /.errorhandler get stopped pop
  166.       .clearerror        % so stacks don't get printed
  167.       
  168.       (\nInterrupted by user.\n) print
  169.                     % tell the user
  170.     stop            % propigate the interrupt
  171.   } bind def
  172. end
  173.  
  174.     
  175.